home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / boot / selector80.lha / Selector / Selector Prefs < prev    next >
Text File  |  1998-09-29  |  2KB  |  89 lines
  1.  
  2. if "$selprefrunning" EQ "Yes"
  3.     selector /prefs/running.sel
  4.     quit
  5. endif
  6.  
  7. if not exists envarc:selector.settings
  8.     echo >envarc:selector.settings " "
  9. endif
  10.  
  11. if not exists env:selector.settings
  12.     copy >nil: envarc:selector.settings env:
  13. endif
  14.  
  15. setenv opa ""
  16. tools/getline env:selector.settings opa " font "
  17. tools/chopword opa epa
  18. if not "$epa" EQ ""
  19.     delete >nil: env:selector.defaultfont
  20. endif
  21.  
  22. setenv opa ""
  23. tools/getline envarc:selector.settings opa " font "
  24. tools/chopword opa epa
  25. if not "$epa" EQ ""
  26.     delete >nil: envarc:selector.defaultfont
  27. endif
  28.  
  29.  
  30.  
  31.  
  32. if exists env:Selector.DefaultFont
  33.     setenv opa "font "
  34.     type >>env:opa env:Selector.DefaultFont
  35.     tools/changeline env:selector.settings opa " font "
  36.     delete >nil: env:Selector.DefaultFont
  37. endif
  38.  
  39. if exists envarc:Selector.DefaultFont
  40.     setenv opa "font "
  41.     type >>env:opa envarc:Selector.DefaultFont
  42.     tools/changeline envarc:selector.settings opa " font "
  43.     delete >nil: envarc:Selector.DefaultFont
  44. endif
  45.  
  46.  
  47. if "`which selector`" NOT EQ "RES selector"
  48.     resident selector pure add
  49.     setenv selectorRes Yes
  50. endif
  51.  
  52. cd tools
  53.  
  54.  
  55. getline env:selector.settings opa " colour "
  56. chopword opa epa
  57. chopword opa fg
  58. chopword opa bg
  59.  
  60. if not "$epa" EQ ""
  61.     setenv opa ""
  62.     changeline env:selector.settings opa " color "
  63.     
  64.     setenv opa "textcol $fg $bg"
  65.     changeline env:selector.settings opa " textcol "
  66.  
  67.     setenv opa "buttoncol $fg $bg"
  68.     changeline env:selector.settings opa " buttoncol "    
  69. endif
  70.  
  71. setenv selprefrunning yes
  72.  
  73. setenv sj ""
  74. setenv js OFF
  75.  
  76. selector /prefs/prefs.sel
  77.  
  78. unsetenv selprefrunning
  79.  
  80. if exists env:selectorRes
  81.     unsetenv selectorRes
  82.     resident selector remove
  83. endif
  84.  
  85. unsetenv opa
  86. unsetenv epa
  87. unsetenv fg
  88. unsetenv bg
  89.